home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)expo87.d64 / copy file.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  273b  |  7 lines
  1. 80 POKE51,84:POKE52,9
  2. 90 INPUT"FILE TYPE  S[157][157][157]";T$:INPUT"FILE";X$
  3. 100 OPEN1,8,2,X$:SYS2223
  4. 105 IFST<>64THENPRINT"NO GO":STOP
  5. 120 CLOSE1:INPUT"OTHER DISK READY";A$
  6. 130 IFLEN(A$)THENOPEN 1,8,2,X$+","+T$+",W":SYS2267:CLOSE1
  7.